100 M=8192:GOSUB500:GOTO150
110 Z=M+INT(Y/8)*320+INT(X/8)*8+(YAND7)
120 POKEZ,PEEK(Z)ORT%(XAND7):RETURN
130 Z=M+INT(Y/8)*320+INT(X/8)*8+(YAND7)
140 POKEZ,PEEK(Z)ANDNOTT%(XAND7):RETURN
150 FORI=0TO7:T%(7-I)=2^I:NEXT
160 SYS49152:POKE53272,PEEK(53272)OR8:POKE53265,PEEK(53265)OR32
170 S=99:DIML%(S)
180 FORT=1TOS:L%(T)=RND(0)*S*3+12:X=L%(T):Y=2*T:GOSUB110:NEXT:TI$="000000"
190 FORI=S-1TO1STEP-1:FORT=1TOI
200 IFL%(T)>L%(T+1)THENGOSUB250:TE=L%(T):L%(T)=L%(T+1):L%(T+1)=TE
210 NEXT:NEXT:T$=TI$:POKE198,0
220 GETA$:IFA$=""THEN220
230 POKE53265,PEEK(53265)AND223:PRINT"[147]":POKE53272,21
240 PRINTS"ITEMS SORTED IN "MID$(T$,3,2)":"RIGHT$(T$,2)".":END
250 Y=2*T:X=L%(T):GOSUB130:Y=2*(T+1):X=L%(T+1):GOSUB130
260 Y=2*T:X=L%(T+1):GOSUB110:Y=2*(T+1):X=L%(T):GOSUB110:RETURN
500 X=0:FORI=49152TO49190:READA:X=X+A:POKEI,A:NEXT
510 IFX<>6678THENPRINT"ERROR IN DATA STATEMENTS.":STOP
520 RETURN
530 DATA 169,32,133,252,162,32,169
540 DATA 0,168,145,251,200,208,251
550 DATA 230,252,202,208,246,169,4
560 DATA 133,254,170,160,0,169,16
570 DATA 145,253,200,208,251,230,254
580 DATA 202,208,246,96